www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_admin_models_classbiao.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE2 {color: #FFFFFF; font-weight: bold; }
.STYLE3 {
color: #0000FF;
font-weight: bold;
font-size: 14px;
}
-->
</style>
<a href="D_add_m_class.asp?biao=<%=request("biao")%>" class="STYLE3"><font style="font-size:14px; color:#0000FF"><br />
<br />
点击本处添加一个分类</font></a><br />
<br />
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<table height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">
<tr>
<td>
<table height="30" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="20" height="30" align="center" class="adminth"><p class="STYLE2">id</p> </td>
<td width="355" height="30" align="center" class="adminth"><p class="STYLE2">分类(括号内为顺序号) </p> </td>
<td width="290" align="center" class="adminth"><span class="STYLE2">操作</span></td>
<td width="85" align="center" class="adminth"><span class="STYLE2">连接性质</span></td>
</tr>
<%
biao=trim(request("biao"))
if qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
%>
<script language="javascript">
function delcccl(id){
if (confirm("分类和分类下面的所有内容会被删除，确认删除?")==1)
{
self.location="D_del_class.asp?id="+id+"&biao=<%=biao%>";
}
}
</script>
<%
iiiyy=0
call next_cen("",0)
function next_cen(pid_list,deepth)
set rs=server.CreateObject("adodb.recordset")
pppcid="-123"
if pid_list<>"" then
ppplista=split(pid_list,",")
ppplistaubd=ubound(ppplista)-1
pppcid=ppplista(ppplistaubd)
end if
rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"')))) order by orders asc",conn,1,1
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa))
else
p_id=0
end if
do while not rs.eof
pid_list222=rs("parent_id_list")&","&rs("id")&","
deepth222=rs("deepth")+1
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"')))) order by orders asc",conn,1,1
if rs2.eof then
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa-1))
else
p_id=0
end if
if p_id=0 then p_id=-1
'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf
%>
<tr>
<td width="20" height="30" align="left" bgcolor="#cccccc"><%=rs("id")%></td>
<td width="355" height="30" align="left" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if %>">
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%><font color="#FF0000">(<%=rs("orders")%>)</font> </td>
<td width="290" align="center" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if%>">
<a href="D_add_m_class.asp?pid=<%=rs("id")%>&biao=<%=biao%>">添加子分类</a> | <a href="D_edit_class.asp?id=<%=rs("id")%>&biao=<%=biao%>">分类设置</a> | <a href="#" onclick="delcccl('<%=rs("id")%>');">删除分类</a></td>
<td width="85" align="center" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if:iiiyy=iiiyy+1%>">
<%if rs("is_link_class")="1" then %>
<font color="#FF0000">外部连接</font>
<%else%>
<font color="#0033FF">内部连接</font>
<%end if%></td>
</tr>
<%
if not rs.eof then rs.movenext
if rs.eof or rs.bof then
'response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
else
need_benji_next=1
end if
else
'response.write "<level0 id="""&rs("id")&""" parentTypeID="""
'if deepth=0 then response.write "-1" else response.write p_id
'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf
%>
<tr>
<td width="20" height="30" align="left" bgcolor="#cccccc"><%=rs("id")%></td>
<td width="355" height="30" align="left" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if %>">
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%><font color="#FF0000">(<%=rs("orders")%>)</font> </td>
<td width="290" align="center" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if%>">
<a href="D_add_m_class.asp?pid=<%=rs("id")%>&biao=<%=biao%>">添加子分类</a> | <a href="D_edit_class.asp?id=<%=rs("id")%>&biao=<%=biao%>">分类设置</a> | <a href="#" onclick="delcccl('<%=rs("id")%>');">删除分类</a></td>
<td width="85" align="center" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if:iiiyy=iiiyy+1%>">
<%if rs("is_link_class")="1" then %>
<font color="#FF0000">外部连接</font>
<%else%>
<font color="#0033FF">内部连接</font>
<%end if%></td>
</tr>
<%
call next_cen(pid_list222,deepth222)
if not rs.eof then rs.movenext
need_benji_next=1
if rs.eof or rs.bof then
'if deepth<>0 then response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
end if
end if
if need_benji_next=0 then
exit do
end if
need_benji_next=0
loop
end function
%>
</table></td>
</tr>
</table>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>